home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 7
/
64er_Magazin_Sonderheft_07_86-07_1986_Markt__Technik_de_Side_A.d64
/
beispiel gosub
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
382b
|
31 lines
10 rem beispielprogramm
20 :
30 :
40 !eingabe:
50 :
60 !berechnung:
70 :
80 !ausgabe:
90 :
95 :
100 end
110 :
120 :
130 rem eingabe
140 print"[147]";
150 input "durchmesser";d
160 return
170 :
180 rem berechnung
190 a=((NULL)*d^2)/4
200 return
210 :
220 rem ausgabe
225 rem basic-befehl mit anfuehrungszeichen !!!
230 !"printa":
240 return
250 :
260 rem "printa"
270 print"[147]kreisflaeche a=";a;"mm^2"
280 return